home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / 2.01 sources / Library-2.01 / Interfaces / GestaltEqu.lisp < prev    next >
Encoding:
Text File  |  1993-09-16  |  17.6 KB  |  330 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :traps)             ; 
  3. ; Created: Sunday, January 6, 1991 at 10:44 PM
  4. ;     GestaltEqu.p
  5. ;     Pascal Interface to the Macintosh Libraries
  6. ; 
  7. ;         Copyright Apple Computer, Inc.    1988-1990
  8. ;         All rights reserved
  9. ; 
  10.  
  11. ;;;;;;;;;;;;;
  12. ;
  13. ; Modification History
  14. ;
  15. ; 04/28/93 mwp Release
  16. ; 09/24/92 bill %get-word -> %get-signed-word
  17. ; ------------- 2.0
  18. ; 08/23/91 bill #_ReplaceGestalt no longer ignores it's last parameter
  19. ;               Fix arg evaluation order problem.
  20. ;
  21.  
  22. ; $IFC UNDEFINED UsingIncludes
  23. ; $SETC UsingIncludes := 0
  24. ; $ENDC
  25.  
  26. ; $IFC NOT UsingIncludes
  27.  
  28. ; $ENDC
  29.  
  30. ; $IFC UNDEFINED UsingGestaltEqu
  31. ; $SETC UsingGestaltEqu := 1
  32.  
  33. ; $I+
  34. ; $SETC GestaltEquIncludes := UsingIncludes
  35. ; $SETC UsingIncludes := 1
  36. ; $IFC UNDEFINED UsingTypes
  37.  
  38. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  39. ; $ENDC
  40. ; $SETC UsingIncludes := GestaltEquIncludes
  41.  
  42. ; ***********************
  43. ;  *    Gestalt error codes
  44. ;  ***********************
  45. (defconstant $gestaltUnknownErr -5550);  value returned if Gestalt doesn't know the answer 
  46. (defconstant $gestaltUndefSelectorErr -5551);  undefined selector was passed to Gestalt 
  47. (defconstant $gestaltDupSelectorErr -5552);  tried to add an entry that already existed 
  48. (defconstant $gestaltLocationErr -5553);  gestalt function ptr wasn't in sysheap 
  49.  
  50. ; *************************
  51. ;  *    Environment Selectors
  52. ;  *************************
  53. (defconstant $gestaltVersion :|vers|);  gestalt version 
  54. (defconstant $gestaltAddressingModeAttr :|addr|);  addressing mode attributes 
  55. (defconstant $gestalt32BitAddressing 0);  using 32-bit addressing mode 
  56. (defconstant $gestalt32BitSysZone 1);  32-bit compatible system zone 
  57. (defconstant $gestalt32BitCapable 2);  Machine is 32-bit capable 
  58. (defconstant $gestaltAliasMgrAttr :|alis|);  Alias Mgr Attributes 
  59. (defconstant $gestaltAliasMgrPresent 0);  True if the Alias Mgr is present 
  60. (defconstant $gestaltAppleTalkVersion :|atlk|);  appletalk version 
  61. (defconstant $gestaltAUXVersion :|a/ux|); a/ux version, if present 
  62. (defconstant $gestaltConnMgrAttr :|conn|);  connection mgr attributes    
  63. (defconstant $gestaltConnMgrPresent 0)
  64. (defconstant $gestaltConnMgrCMSearchFix 1);  Fix to CMAddSearch?     
  65. (defconstant $gestaltCRMAttr :|crm |);  comm resource mgr attributes 
  66. (defconstant $gestaltCRMPresent 0)
  67. (defconstant $gestaltCTBVersion :|ctbv|);  CommToolbox version 
  68. (defconstant $gestaltDBAccessMgrAttr :|dbac|);  Database Access Mgr attributes 
  69. (defconstant $gestaltDBAccessMgrPresent 0);  True if Database Access Mgr present 
  70. (defconstant $gestaltDITLExtAttr :|ditl|);  AppenDITL, etc. calls from CTB 
  71. (defconstant $gestaltDITLExtPresent 0);  True if calls are present 
  72. (defconstant $gestaltEasyAccessAttr :|easy|);  Easy Access attributes 
  73. (defconstant $gestaltEasyAccessOff 0);  if Easy Access present, but off (no icon) 
  74. (defconstant $gestaltEasyAccessOn 1);  if Easy Access "On" 
  75. (defconstant $gestaltEasyAccessSticky 2);  if Easy Access "Sticky" 
  76. (defconstant $gestaltEasyAccessLocked 3);  if Easy Access "Locked" 
  77. (defconstant $gestaltEditionMgrAttr :|edtn|);  Edition Mgr attributes 
  78. (defconstant $gestaltEditionMgrPresent 0);  True if Edition Mgr present 
  79. (defconstant $gestaltAppleEventsAttr :|evnt|);  Apple Events attributes 
  80. (defconstant $gestaltAppleEventsPresent 0);  True if Apple Events present 
  81. (defconstant $gestaltFindFolderAttr :|fold|);  Folder Mgr attributes 
  82. (defconstant $gestaltFindFolderPresent 0);  True if Folder Mgr present 
  83. (defconstant $gestaltFontMgrAttr :|font|);  Font Mgr attributes 
  84. (defconstant $gestaltOutlineFonts 0);  True if Outline Fonts supported 
  85. (defconstant $gestaltFPUType :|fpu |);  fpu type 
  86. (defconstant $gestaltNoFPU 0)   ;  no FPU 
  87. (defconstant $gestalt68881 1)   ;  68881 FPU 
  88. (defconstant $gestalt68882 2)   ;  68882 FPU 
  89. (defconstant $gestalt68040FPU 3);  68040 built-in FPU 
  90. (defconstant $gestaltFSAttr :|fs  |);  file system attributes 
  91. (defconstant $gestaltFullExtFSDispatching 0);  has really cool new HFSDispatch dispatcher 
  92. (defconstant $gestaltHasFSSpecCalls 1);  has FSSpec calls    
  93. (defconstant $gestaltHasFileSystemManager 2);  has a file system manager 
  94. (defconstant $gestaltFXfrMgrAttr :|fxfr|);  file transfer manager attributes 
  95. (defconstant $gestaltFXfrMgrPresent 0)
  96. (defconstant $gestaltHardwareAttr :|hdwr|);  hardware attributes 
  97. (defconstant $gestaltHasVIA1 0) ;  VIA1 exists 
  98. (defconstant $gestaltHasVIA2 1) ;  VIA2 exists 
  99. (defconstant $gestaltHasASC 3)  ;  Apple Sound Chip exists 
  100. (defconstant $gestaltHasSCC 4)  ;  SCC exists 
  101. (defconstant $gestaltHasSCSI 7) ;  SCSI exists 
  102. (defconstant $gestaltHasSoftPowerOff 19);  Capable of software power off 
  103. (defconstant $gestaltHelpMgrAttr :|help|);  Help Mgr Attributes 
  104. (defconstant $gestaltHelpMgrPresent 0);  true if help mgr is present 
  105. (defconstant $gestaltKeyboardType :|kbd |);  keyboard type 
  106. (defconstant $gestaltMacKbd 1)
  107. (defconstant $gestaltMacAndPad 2)
  108. (defconstant $gestaltMacPlusKbd 3)
  109. (defconstant $gestaltExtADBKbd 4)
  110. (defconstant $gestaltStdADBKbd 5)
  111. (defconstant $gestaltPrtblADBKbd 6)
  112. (defconstant $gestaltPrtblISOKbd 7)
  113. (defconstant $gestaltStdISOADBKbd 8)
  114. (defconstant $gestaltExtISOADBKbd 9)
  115. (defconstant $gestaltADBKbdII 10)
  116. (defconstant $gestaltADBISOKbdII 11)
  117. (defconstant $gestaltLowMemorySize :|lmem|);  size of low memory area 
  118. (defconstant $gestaltLogicalRAMSize :|lram|);  logical ram size 
  119. (defconstant $gestaltMiscAttr :|misc|);  miscellaneous attributes 
  120. (defconstant $gestaltScrollingThrottle 0);  true if scrolling throttle on 
  121. (defconstant $gestaltSquareMenuBar 2);  true if menu bar is square 
  122. (defconstant $gestaltMMUType :|mmu |);  mmu type 
  123. (defconstant $gestaltNoMMU 0)   ;  no MMU 
  124. (defconstant $gestaltAMU 1)     ;  address management unit 
  125. (defconstant $gestalt68851 2)   ;  68851 PMMU 
  126. (defconstant $gestalt68030MMU 3);  68030 built-in MMU 
  127. (defconstant $gestalt68040MMU 4);  68040 built-in MMU 
  128. (defconstant $gestaltStdNBPAttr :|nlup|);  standard nbp attributes 
  129. (defconstant $gestaltStdNBPPresent 0)
  130. (defconstant $gestaltNotificationMgrAttr :|nmgr|);  notification manager attributes 
  131. (defconstant $gestaltNotificationPresent 0);  notification manager exists 
  132. (defconstant $gestaltNuBusConnectors :|sltc|);  bitmap of NuBus connectors
  133. (defconstant $gestaltOSAttr :|os  |);  o/s attributes 
  134. (defconstant $gestaltSysZoneGrowable 0);  system heap is growable 
  135. (defconstant $gestaltLaunchCanReturn 1);  can return from launch 
  136. (defconstant $gestaltLaunchFullFileSpec 2);  can launch from full file spec 
  137. (defconstant $gestaltLaunchControl 3);  launch control support available 
  138. (defconstant $gestaltTempMemSupport 4);  temp memory support 
  139. (defconstant $gestaltRealTempMemory 5);  temp memory handles are real 
  140. (defconstant $gestaltTempMemTracked 6);  temporary memory handles are tracked 
  141. (defconstant $gestaltIPCSupport 7);  IPC support is present 
  142. (defconstant $gestaltSysDebuggerSupport 8);  system debugger support is present 
  143. (defconstant $gestaltOSTable :|ostt|);   OS trap table base  
  144. (defconstant $gestaltToolboxTable :|tbtt|);   OS trap table base  
  145. (defconstant $gestaltExtToolboxTable :|xttt|);  Extended Toolbox trap table base 
  146. (defconstant $gestaltLogicalPageSize :|pgsz|);  logical page size 
  147. (defconstant $gestaltPowerMgrAttr :|powr|);  power manager attributes 
  148. (defconstant $gestaltPMgrExists 0)
  149. (defconstant $gestaltPMgrCPUIdle 1)
  150. (defconstant $gestaltPMgrSCC 2)
  151. (defconstant $gestaltPMgrSound 3)
  152. (defconstant $gestaltPPCToolboxAttr :|ppc |);  PPC toolbox attributes 
  153.  
  154. ; 
  155. ;  * PPC will return the combination of following bit fields.
  156. ;  * e.g. gestaltPPCSupportsRealTime +gestaltPPCSupportsIncoming + gestaltPPCSupportsOutGoing
  157. ;  * indicates PPC is cuurently is only supports real time delivery
  158. ;  * and both incoming and outgoing network sessions are allowed.
  159. ;  * By default local real time delivery is supported as long as PPCInit has been called.
  160.  
  161. (defconstant $gestaltPPCToolboxPresent #x0);  PPC Toolbox is present  Requires PPCInit to be called 
  162. (defconstant $gestaltPPCSupportsRealTime #x1000);  PPC Supports real-time delivery 
  163. (defconstant $gestaltPPCSupportsIncoming #x1);  PPC will deny incoming network requests 
  164. (defconstant $gestaltPPCSupportsOutGoing #x2);  PPC will deny outgoing network requests 
  165. (defconstant $gestaltProcessorType :|proc|);  processor type 
  166. (defconstant $gestalt68000 1)
  167. (defconstant $gestalt68010 2)
  168. (defconstant $gestalt68020 3)
  169. (defconstant $gestalt68030 4)
  170. (defconstant $gestalt68040 5)
  171. (defconstant $gestaltParityAttr :|prty|);  parity attributes 
  172. (defconstant $gestaltHasParityCapability 0);  has ability to check parity 
  173. (defconstant $gestaltParityEnabled 1);  parity checking enabled 
  174. (defconstant $gestaltQuickdrawVersion :|qd  |);  quickdraw version 
  175. (defconstant $gestaltOriginalQD #x0);  original 1-bit QD 
  176. (defconstant $gestalt8BitQD #x100);  8-bit color QD 
  177. (defconstant $gestalt32BitQD #x200);  32-bit color QD 
  178. (defconstant $gestalt32BitQD11 #x210);  32-bit color QDv1.1 
  179. (defconstant $gestalt32BitQD12 #x220);  32-bit color QDv1.2 
  180. (defconstant $gestalt32BitQD13 #x230);  32-bit color QDv1.3 
  181. (defconstant $gestaltQuickdrawFeatures :|qdrw|);  quickdraw features 
  182. (defconstant $gestaltHasColor 0);  color quickdraw present 
  183. (defconstant $gestaltHasDeepGWorlds 1);  GWorlds can be deeper than 1-bit 
  184. (defconstant $gestaltHasDirectPixMaps 2);  PixMaps can be direct (16 or 32 bit) 
  185. (defconstant $gestaltHasGrayishTextOr 3);  supports text mode grayishTextOr 
  186. (defconstant $gestaltPhysicalRAMSize :|ram |);  physical RAM size 
  187. (defconstant $gestaltPopupAttr :|pop!|);  popup cdef attributes 
  188. (defconstant $gestaltPopupPresent 0)
  189. (defconstant $gestaltResourceMgrAttr :|rsrc|);  Resource Mgr attributes 
  190. (defconstant $gestaltPartialRsrcs 0);  True if partial resources exist 
  191. (defconstant $gestaltScriptMgrVersion :|scri|);  Script Manager version number    <08/05/89 pke> 
  192. (defconstant $gestaltScriptCount :|scr#|);  number of active script systems    <08/05/89 pke> 
  193. (defconstant $gestaltSerialAttr :|ser |);  Serial attributes 
  194. (defconstant $gestaltHasGPIaToDCDa 0);  GPIa connected to DCDa
  195. (defconstant $gestaltHasGPIaToRTxCa 1);  GPIa connected to RTxCa clock input
  196. (defconstant $gestaltHasGPIbToDCDb 2);  GPIb connected to DCDb 
  197. (defconstant $gestaltSoundAttr :|snd |);  sound attributes 
  198. (defconstant $gestaltStereoCapability 0);  sound hardware has stereo capability 
  199. (defconstant $gestaltStereoMixing 1);  stereo mixing on external speaker 
  200. (defconstant $gestaltSoundIOMgrPresent 3);  The Sound I/O Manager is present 
  201. (defconstant $gestaltBuiltInSoundInput 4);  built-in Sound Input hardware is present 
  202. (defconstant $gestaltHasSoundInputDevice 5);  Sound Input device available 
  203. (defconstant $gestaltStandardFileAttr :|stdf|);  Standard File attributes 
  204. (defconstant $gestaltStandardFile58 0);  True if selectors 5-8 (StandardPutFile-CustomGetFile) are supported 
  205. (defconstant $gestaltTextEditVersion :|te  |);  TextEdit version number            <08/05/89 pke> 
  206. (defconstant $gestaltTE1 1)     ;  TextEdit in MacIIci ROM <8Aug89smb> 
  207. (defconstant $gestaltTE2 2)     ;  TextEdit with 6.0.4 Script Systems on MacIIci (Script bug fixes for MacIIci) <8Aug89smb> 
  208. (defconstant $gestaltTE3 3)     ;  TextEdit with 6.0.4 Script Systems all but MacIIci <8Aug89smb> 
  209. (defconstant $gestaltTE4 4)     ;  TextEdit in System 7.0 
  210. (defconstant $gestaltTE5 5)     ;  TextWidthHook available in TextEdit 
  211. (defconstant $gestaltTermMgrAttr :|term|);  terminal mgr attributes 
  212. (defconstant $gestaltTermMgrPresent 0)
  213. (defconstant $gestaltTimeMgrVersion :|tmgr|);  time mgr version 
  214. (defconstant $gestaltStandardTimeMgr 1);  standard time mgr is present 
  215. (defconstant $gestaltRevisedTimeMgr 2);  revised time mgr is present 
  216. (defconstant $gestaltExtendedTimeMgr 3);  extended time mgr is present 
  217. (defconstant $gestaltVMAttr :|vm  |);  virtual memory attributes 
  218. (defconstant $gestaltVMPresent 0);  true if virtual memory is present 
  219.  
  220. ; ************************
  221. ;  *    Info-only selectors
  222. ;  ***********************
  223. (defconstant $gestaltMachineType :|mach|);  machine type 
  224. (defconstant $kMachineNameStrID -16395)
  225. (defconstant $gestaltClassic 1)
  226. (defconstant $gestaltMacXL 2)
  227. (defconstant $gestaltMac512KE 3)
  228. (defconstant $gestaltMacPlus 4)
  229. (defconstant $gestaltMacSE 5)
  230. (defconstant $gestaltMacII 6)
  231. (defconstant $gestaltMacIIx 7)
  232. (defconstant $gestaltMacIIcx 8)
  233. (defconstant $gestaltMacSE030 9)
  234. (defconstant $gestaltPortable 10)
  235. (defconstant $gestaltMacIIci 11)
  236. (defconstant $gestaltMacIIfx 13)
  237. (defconstant $gestaltMacClassic 17)
  238. (defconstant $gestaltMacIIsi 18)
  239. (defconstant $gestaltMacLC 19)
  240. (defconstant $gestaltMachineIcon :|micn|);  machine icon 
  241. (defconstant $gestaltROMSize :|rom |);  rom size 
  242. (defconstant $gestaltROMVersion :|romv|);  rom version 
  243. (defconstant $gestaltSystemVersion :|sysv|);  system version
  244.  
  245.  
  246. (deftrap _gestalt ((selector :ostype) (response (:pointer :signed-long)))
  247.    (:no-trap :signed-integer)
  248.    (:no-trap (ccl::%stack-block ((ret 8))
  249.                (ccl::%gen-trap #xA1AD :return-block ret :d0 selector :a0 response '(:d0 :a0))
  250.                (%put-ptr response (%get-ptr ret 4))
  251.                (%get-signed-word ret 2))))
  252.  
  253. (deftrap _newgestalt ((selector :ostype) (gestaltfunction :pointer))
  254.    (:d0 :signed-integer)
  255.    (:register-trap #xA3AD :d0 selector :a0 gestaltfunction))
  256.  
  257. (deftrap _replacegestalt ((selector :ostype) (gestaltfunction :pointer) (oldgestaltfunction (:pointer :pointer)))
  258.    (:no-trap :signed-integer)
  259.   (:no-trap (ccl:%stack-block ((ret 8))
  260.               (ccl::%gen-trap 42413 :return-block ret :d0 selector :a0 gestaltfunction '(:d0 :a0))
  261.               (%put-ptr oldgestaltfunction (%get-ptr ret 4))
  262.               (%get-signed-word ret 2))))
  263.  
  264. ; $ENDC
  265.  
  266.  
  267. (export '($gestaltsystemversion $gestaltromversion $gestaltromsize
  268.           $gestaltmachineicon $gestaltmaclc $gestaltmaciisi $gestaltmacclassic
  269.           $gestaltmaciifx $gestaltmaciici $gestaltportable $gestaltmacse030
  270.           $gestaltmaciicx $gestaltmaciix $gestaltmacii $gestaltmacse
  271.           $gestaltmacplus $gestaltmac512ke $gestaltmacxl $gestaltclassic
  272.           $kmachinenamestrid $gestaltmachinetype $gestaltvmpresent
  273.           $gestaltvmattr $gestaltextendedtimemgr $gestaltrevisedtimemgr
  274.           $gestaltstandardtimemgr $gestalttimemgrversion $gestalttermmgrpresent
  275.           $gestalttermmgrattr $gestaltte5 $gestaltte4 $gestaltte3 $gestaltte2
  276.           $gestaltte1 $gestalttexteditversion $gestaltstandardfile58
  277.           $gestaltstandardfileattr $gestalthassoundinputdevice
  278.           $gestaltbuiltinsoundinput $gestaltsoundiomgrpresent
  279.           $gestaltstereomixing $gestaltstereocapability $gestaltsoundattr
  280.           $gestalthasgpibtodcdb $gestalthasgpiatortxca $gestalthasgpiatodcda
  281.           $gestaltserialattr $gestaltscriptcount $gestaltscriptmgrversion
  282.           $gestaltpartialrsrcs $gestaltresourcemgrattr $gestaltpopuppresent
  283.           $gestaltpopupattr $gestaltphysicalramsize $gestalthasgrayishtextor
  284.           $gestalthasdirectpixmaps $gestalthasdeepgworlds $gestalthascolor
  285.           $gestaltquickdrawfeatures $gestalt32bitqd13 $gestalt32bitqd12
  286.           $gestalt32bitqd11 $gestalt32bitqd $gestalt8bitqd $gestaltoriginalqd
  287.           $gestaltquickdrawversion $gestaltparityenabled
  288.           $gestalthasparitycapability $gestaltparityattr $gestalt68040
  289.           $gestalt68030 $gestalt68020 $gestalt68010 $gestalt68000
  290.           $gestaltprocessortype $gestaltppcsupportsoutgoing
  291.           $gestaltppcsupportsincoming $gestaltppcsupportsrealtime
  292.           $gestaltppctoolboxpresent $gestaltppctoolboxattr $gestaltpmgrsound
  293.           $gestaltpmgrscc $gestaltpmgrcpuidle $gestaltpmgrexists
  294.           $gestaltpowermgrattr $gestaltlogicalpagesize $gestaltexttoolboxtable
  295.           $gestalttoolboxtable $gestaltostable $gestaltsysdebuggersupport
  296.           $gestaltipcsupport $gestalttempmemtracked $gestaltrealtempmemory
  297.           $gestalttempmemsupport $gestaltlaunchcontrol
  298.           $gestaltlaunchfullfilespec $gestaltlaunchcanreturn
  299.           $gestaltsyszonegrowable $gestaltosattr $gestaltnubusconnectors
  300.           $gestaltnotificationpresent $gestaltnotificationmgrattr
  301.           $gestaltstdnbppresent $gestaltstdnbpattr $gestalt68040mmu
  302.           $gestalt68030mmu $gestalt68851 $gestaltamu $gestaltnommu
  303.           $gestaltmmutype $gestaltsquaremenubar $gestaltscrollingthrottle
  304.           $gestaltmiscattr $gestaltlogicalramsize $gestaltlowmemorysize
  305.           $gestaltadbisokbdii $gestaltadbkbdii $gestaltextisoadbkbd
  306.           $gestaltstdisoadbkbd $gestaltprtblisokbd $gestaltprtbladbkbd
  307.           $gestaltstdadbkbd $gestaltextadbkbd $gestaltmacpluskbd
  308.           $gestaltmacandpad $gestaltmackbd $gestaltkeyboardtype
  309.           $gestalthelpmgrpresent $gestalthelpmgrattr $gestalthassoftpoweroff
  310.           $gestalthasscsi $gestalthasscc $gestalthasasc $gestalthasvia2
  311.           $gestalthasvia1 $gestalthardwareattr $gestaltfxfrmgrpresent
  312.           $gestaltfxfrmgrattr $gestalthasfilesystemmanager
  313.           $gestalthasfsspeccalls $gestaltfullextfsdispatching $gestaltfsattr
  314.           $gestalt68040fpu $gestalt68882 $gestalt68881 $gestaltnofpu
  315.           $gestaltfputype $gestaltoutlinefonts $gestaltfontmgrattr
  316.           $gestaltfindfolderpresent $gestaltfindfolderattr
  317.           $gestaltappleeventspresent $gestaltappleeventsattr
  318.           $gestalteditionmgrpresent $gestalteditionmgrattr
  319.           $gestalteasyaccesslocked $gestalteasyaccesssticky
  320.           $gestalteasyaccesson $gestalteasyaccessoff $gestalteasyaccessattr
  321.           $gestaltditlextpresent $gestaltditlextattr $gestaltdbaccessmgrpresent
  322.           $gestaltdbaccessmgrattr $gestaltctbversion $gestaltcrmpresent
  323.           $gestaltcrmattr $gestaltconnmgrcmsearchfix $gestaltconnmgrpresent
  324.           $gestaltconnmgrattr $gestaltauxversion $gestaltappletalkversion
  325.           $gestaltaliasmgrpresent $gestaltaliasmgrattr $gestalt32bitcapable
  326.           $gestalt32bitsyszone $gestalt32bitaddressing
  327.           $gestaltaddressingmodeattr $gestaltversion $gestaltlocationerr
  328.           $gestaltdupselectorerr $gestaltundefselectorerr $gestaltunknownerr))
  329. (provide-interface 'GESTALTEQU)
  330.